Sub ()

    With Sheets("ȭ 1")
    
        .EditBoxes(1).Text = ""
        .Labels(2).Caption = "հ :"
        .Show
        
    End With

End Sub